home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / othernet / fidonet / aval_377 / demo.bat / text2msg.bat < prev    next >
DOS Batch File  |  1994-10-09  |  2KB  |  107 lines
  1. ; Dieses File sendet einen l„ngeren Text in eine Area. Der Text wird
  2. ; in maximal 8KB grože Teile zerlegt.
  3. ; Fr mehr Informationen siehe TXT2MSG.BAT.
  4. ; Diese Batchdatei sollte auf jedem System ohne Modifikationen laufen!
  5. ; (Nur die eigene Adresse unter "!FROM" eintragen!)
  6. ;
  7. ; This file sends a long text into an area. The text will be splitted
  8. ; in 8KB blocks.
  9. ; For more information see TXT2MSG.BAT.
  10. ; This batch should work on all systems without any modifications!
  11. ; (Only enter your own address after the statement "!FROM"!)
  12. ; ------------------------------------------------------------------
  13.  
  14. ECHO=OFF
  15. !CONVERTTEARLINE=ON
  16.  
  17. :start
  18. CLS
  19. ECHO Choose area: / W„hle Area:
  20. ECHO
  21. ECHO A. Science-Fiction    [ Subject: "Story: <name> Part: <n>" ]
  22. ECHO B. Netmail            [ Subject: <name> (n)                ]
  23. ECHO C. Other / Andere     [ Subject: <name> (n)                ]
  24. ECHO
  25. ECHO ESC - End / Ende
  26. :loop
  27. GETKEY
  28. IFERR= 97 area_a
  29. IFERR= 98 area_b
  30. IFERR= 99 area_c
  31. IFERR# 27 loop
  32. EXIT
  33.  
  34. :area_a
  35. PRESET 1 All
  36. PRESET 2 0:0/0
  37. PRESET 3 Story: %filename%   Part: %ext%
  38. PRESET 4 SCIENCE_FICTION
  39. PRESET 5
  40. GOTO continue
  41.  
  42. :area_b
  43. INPUT 1 To / Empf„nger:
  44. INPUT 2 Address / Adresse:
  45. PRESET 3 %filename% (%ext%)
  46. PRESET 4 MAIL
  47. PRESET 5 L
  48. GOTO continue
  49.  
  50. :area_c
  51. PRESET 1 All
  52. PRESET 2 0:0/0
  53. PRESET 3 %filename% (%ext%)
  54. INPUT 4 Areaname:
  55. PRESET 5
  56. GOTO continue
  57.  
  58.  
  59.  
  60. :continue
  61.  
  62. ; W„hle File aus
  63. ; Choose file
  64.  
  65. FILESELECT 0
  66.  
  67. ; Nun zerlege das File in 8KB Bl”cke. Das gesplittete File bekommt die
  68. ; Endungen 001 - ...
  69. ; Now split the file into 8KB blocks. The splitted file is named with
  70. ; extension 001 - ...
  71.  
  72. SPLIT %%0 8000 0
  73.  
  74. ; Wir wollen nur die aufgeteilten Teile versenden, so schneiden wir nun die
  75. ; Extension ab und versenden <filename>.0??
  76. ; We want to send only the splitted parts, so cut the extension and send
  77. ; <filename>.0??
  78.  
  79. CUTEXTENSION 0
  80.  
  81. ; Versende File
  82. ; Send file
  83.  
  84. !AREA %%4
  85. !FILE %%0.0??
  86. !FROM 2:2448/2020.6 Stephan Slabihoud
  87. !SUBJECT %%3
  88. !FLAGS %%5
  89. !SEND %%2 %%1
  90.  
  91. ECHO
  92. ECHO Delete the original file (J/*)?
  93. ECHO Soll das Originalfile gel”scht werden (J/*)?
  94. ECHO
  95. GETKEY
  96. IFERR= 74 delall
  97. IFERR= 106 delall
  98.  
  99. ; L”sche die einzelnen Teile
  100. ; Delete all spliited parts
  101.  
  102. DEL %%0.0??
  103. GOTO start
  104. :delall
  105. DEL %%0.*
  106. GOTO start
  107.